home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
snip1292.zip
/
LV1WS.C
< prev
next >
Wrap
C/C++ Source or Header
|
1992-12-26
|
863b
|
37 lines
/*
** Originally published as part of the MicroFirm Function Library
**
** Copyright 1987-88, Robert B.Stout
**
** Subset version released to the public domain, 1992
**
** Makes all whitespace single spaces. Passed a string, lv1ws()
** converts all multiple whitespace characters to single spaces.
*/
#include <ctype.h>
void lv1ws(char *str)
{
char *ibuf = str, *obuf = str;
int i = 0, cnt = 0;
while(*ibuf)
{
if(isspace(*ibuf) && cnt)
ibuf++;
else
{
if (!isspace(*ibuf))
cnt = 0;
else
{
*ibuf = ' ';
cnt = 1;
}
obuf[i++] = *ibuf++;
}
}
obuf[i] = '\0';
}